home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / ACQUI2.BIN / A12 (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  27.7 KB  |  610 lines
  1. 2 CLR:S=0:X=0:Y=0:Z=0:M=0:DO=0:ZQ=0:UB=0:YR=0:CO=0:HJ=0:WL=0:WN=0:Q=0:WE$=CHR$(34):EW$=CHR$(13):IFPEEK(30120)=169THENSYS30120
  2. 4 BC=53280:CB=53281:POKECB,15:POKEBC,15:POKE53265,PEEK(53265)OR64:POKE657,128:IFPEEK(30120)<>169THENSYS49633:POKE775,200
  3. 5 IFPEEK(787)=212THENOP=5
  4. 6 GOSUB230:IFPEEK(30120)=169THENNEW
  5. 7 GOSUB6960:C5=39424:C4=49152:GOSUB190:B7=5:IFPEEK(37190)=173THENSYS37190
  6. 8 POKECB+1,14:POKECB+2,6:GOTO631
  7. 20 PRINT"":IFT>6THEN110
  8. 30 IFEZ>13THENEZ=13
  9. 40 FORX=1TOEZSTEP2:PRINT"":DO=22-INT((X+1)/2):FORQ=1TODO:PRINT"";:NEXT:FORY=1TO5:FORZ=2TO8:IFP%(Y,Z,1)<XTHENPRINT"";:GOTO100
  10. 80 IFP%(Y,Z,1)=XTHENPRINTSG$(Z);"[191]";:GOTO100
  11. 90 IFX=13ANDP%(Y,Z,1)>14THENPRINTSG$(Z);"+";:GOTO100
  12. 92 IFP%(Y,Z,1)>XTHENPRINTSG$(Z);"[255]";
  13. 100 NEXT:PRINT"";:NEXT:NEXT
  14. 110 B7=0:RETURN
  15. 190 FORZX=1TO15:GETV$:NEXT:RETURN
  16. 200 NX=WN*8+32:NY=WL*8+52:GOSUB460:POKEVS+21,7:RETURN
  17. 210 IFPR=8THENRETURN
  18. 220 IFT>0ANDT<4THENRETURN
  19. 230 POKE806,0:POKE807,195:POKE54296,14:POKE251,P2*14AND255:RETURN
  20. 240 POKE806,202:POKE807,241:RETURN
  21. 250 DEFFNS(A)=RND(1)*23+INT(RND(TI)*12)*40+16:E=1024:U=55296:FORDX=1TO12:CA=FNS(DX):SYSC4,V2,FC:FORM=1TO4:READM8,YU:POKEE+CA,M8:POKEU+CA,YU:NEXT:RESTORE:NEXT:DATA86,7,91,3,42,1,32,1:RETURN
  22. 280 NX=OT*60-34:NY=250:SYSC4,V3,WT,A0,S0,L13,D9,F2000,R11:SYSC4,V2,A0,WN,D0,S0:GOSUB460:POKEVS+21,7:FORNY=250TO128STEP-2:POKEVS+3,NY+1:POKEVS+1,NY:POKEVS+5,NY:SYSC4,V2,WN,F((NY-120)^2):NEXT:IFWL=0THENRETURN
  23. 310 C%=(RND(0)+.2)^4:IFC%=0THEN330
  24. 320 FORM=1TOC%:GOSUB390:NEXT
  25. 330 IFNY>WL*8+52THENNY=NY-2:GOSUB520
  26. 340 IFNY<WL*8+52THENNY=NY+2:GOSUB500
  27. 350 IFNX>WN*8+32THENNX=NX-2:GOSUB510
  28. 360 IFNX<WN*8+32THENNX=NX+2:GOSUB490
  29. 370 IFNX=WN*8+32ANDNY=WL*8+52THENRETURN
  30. 380 GOTO330
  31. 390 UY%=RND(0)*9+1:UX%=RND(0)*12+1
  32. 400 IFNY>UY%*8+52THENNY=NY-2:GOSUB520
  33. 410 IFNY<UY%*8+52THENNY=NY+2:GOSUB500
  34. 420 IFNX>UX%*8+32THENNX=NX-2:GOSUB510
  35. 430 IFNX<UX%*8+32THENNX=NX+2:GOSUB490
  36. 440 IFNX=UX%*8+32ANDNY=UY%*8+52THENRETURN
  37. 450 GOTO400
  38. 460 POKEVS,NX+1:POKEVS+2,NX+2:POKEVS+4,NX:SYSC4,V2,WN,F(NY^2):POKEVS+1,NY:POKEVS+3,NY+1:POKEVS+5,NY:SYSC4,V3,WS,F(NX^2):SYSC4,V2,WN,F(NX^2):SYSC4,V3,WS,F(NY^2):RETURN
  39. 490 POKEVS,NX+1:POKEVS+2,NX+2:POKEVS+4,NX:SYSC4,V2,WN,F(NX^2):RETURN
  40. 500 POKEVS+1,NY:POKEVS+3,NY+1:POKEVS+5,NY:SYSC4,V3,WS,F(NY^2):RETURN
  41. 510 POKEVS+2,NX+2:POKEVS,NX+1:POKEVS+4,NX:SYSC4,V2,WN,F(NX^2):RETURN
  42. 520 POKEVS+3,NY+1:POKEVS+1,NY:POKEVS+5,NY:SYSC4,V3,WS,F(NY^2):RETURN
  43. 530 SC$(2)="TAWWER":SC$(3)="LAHKSUHRX":SC$(4)="AHMEH4RIX5KAXN":SC$(5)="WUH5RLDWAYD":SC$(6)="FEH5STIHVAXLX":SC$(7)="IHMMPIY5RIYAXLX":SC$(8)="KAANTIHNEH5TAXLX":RETURN
  44. 560 SP$(1)="PLEY5ER WAAAHN.
  45. 570 SP$(2)[178]"PLEY5ER TUXUXUH.
  46. 580 SP$(3)="PLEY5ER THERIYIY.
  47. 590 SP$(4)[178]"PLEY5ER FOHOHER.
  48. 592 FORX=1TOKK:V$=LEFT$(P1$(X),2)
  49. 593 IFV$="[193]O"THENSP$(X)="AA5AAZ.
  50. 594 [139]V$[178]"ATND"[167]SP$(X)[178]"DAY.
  51. 595 IFV$="[193]M"THENSP$(X)="MOH5OH.
  52. 596 [139]V$[178]"ATNL"[167]SP$(X)[178]"LUX5UX.
  53. 597 IFV$="ED"THENSP$(X)="EHEHDX.
  54. 598 [139]V$[178]"JO"[167]SP$(X)[178]"JAAAAN.
  55. 599 IFV$="RI"THENSP$(X)="RIHCHERDX.
  56. 600 [139]V$[178]"NI"[167]SP$(X)[178]"NIHK.
  57. 601 IFV$="BR"THENSP$(X)="BRUXS.
  58. 602 [139]V$[178]"DA"[167]SP$(X)[178]"DAEN.
  59. 609 NEXTX:RETURN
  60. 610 OT=OT+1:IFOT>KKTHENOT=1
  61. 620 CM=0:IFLEFT$(P1$(OT),1)="[193]"THENCM=1
  62. 630 RETURN
  63. 631 POKE39440,1:WL=0:C4=49152:X=1924:DIMFR(60):Y=1.0594631:VY=3
  64. 632 AC$="[163]   [144] [176][177][178][210][211][212][213][146]"
  65. 633 FORZ=0TO60:E=INT(X*Y^Z):FR(Z)=E:NEXT:POKE39438,75:POKE39439,53
  66. 634 SYSC4,C,V1,FFR(11),WT,A2,D11,L13:SYSC4,V3,FFR(7),WT,A11,D11,S5,R3
  67. 640 SYSC4,V2,FFR(4),WT,A11,D11,S8,R3
  68. 680 SP$(1)="PLEY5ER NAH5MBER WAAAHN":SP$(2)="PLEY5ER NAH5MBER TUXUXUH":SP$(3)="PLEY5ER NAH5MBER THERIYIY":SP$(4)="PLEY5ER NAH5MBER FOHOHER":DIMSH(20):DIMGG(20):DIMAG(20):EZ=5:DIMJI(20):DIMR(126,3):DIMP%(5,8,3):DIMB%(10,13):P1=.5:P2=2:FORX=1TO4:MO(X)=6000:NEXT:GOSUB530:FORX=2TO8
  69. 730 P%(5,X,1)=25:SC$(X)=SC$(X)+" /HOH7TEH6LXZ":NEXT:SG$(2)="[158]":SG$(3)="":SG$(4)="":SG$(5)="[149]":SG$(6)="[153]":SG$(7)="[150]":SG$(8)="[159]":VS=53248:FORX=108TO126:R(X,1)=24:R(X,2)=99:NEXT:OT=4:FORX=1TO9:FORL=1TO12:POKE53272,X*8+8:R((L-1)*9+X,1)=X:R((L-1)*9+X,2)=L:NEXT:NEXT:FORM=1TO2
  70. 780 FORX=1TO108:U=INT(RND(TI)*108)+1:IFM=1THENU=INT(RND(-TI)*108)+1
  71. 790 Y=R(U,1):Z=R(U,2):R(U,1)=R(X,1):R(U,2)=R(X,2):R(X,1)=Y:R(X,2)=Z:NEXT:SYS49664:NEXT:FORX=1TO5:B%(R(X,1),R(X,2))=1:NEXT:GOSUB4900:SA$="WEH4LKUM TUX DHAH GEY5M AHV AHRXKWAY5S":SYSC5:FORM=1TO900:NEXT:SA$=".DHAH GEYM IHZ BEYSDX AAN AHAHKWAY5ER6,BAY AE5VAXLAAN /HIHLX.":SYSC5
  72. 830 POKE53272,24:GOSUB280:SYSC4,L0:SA$="PROHGRAEMIYNXG BAY -EH5D-JIH5MIHSAXN.":SYSC5:POKE53272,1:FORX=0TO13:FORY=0TO10:B%(Y,X)=1:NEXT:NEXT:OT=1:POKEVS+21,0:POKE53265,PEEK(53265)AND191:POKEBC,12:POKECB,12:GOSUB1150:GOSUB240:GOSUB1000:GOSUB1040:FORLH=1TOKK:GOSUB610:IFPR=9ANDCM<>1THENGOSUB2110
  73. 880 NEXT:IT=TI
  74. 890 YL=2:IFTA<>1THENGOSUB1040
  75. 900 GOSUB2210:IFCO/KK=9THENG8=2
  76. 910 IFCO/KK>9THENPOKE39438,INT(75-(CO/(KK+4)))
  77. 920 YL=3:IFCO=46THENGOSUB530:GOSUB560
  78. 930 IFO1<>3THENGOSUB5190:IFO1=1THENPOKEBC,11
  79. 940 GOSUB2690:GOSUB1890:IFCM=1THEN960
  80. 950 IFPR=9THENFF=1:GOTO4630
  81. 960 D(OT)=D(OT)+(TI-IT):IT=TI:GOSUB610:IF(T+1)/3=INT((T+1)/3)ANDINT(RND(0)*4)=3THENCM=1
  82. 980 IFO1<>3THEN890
  83. 990 GOTO5230
  84. 1000 PRINT"          [151] 111":PRINT"  [151]123456789012":FORX=65TO73:PRINT" ";CHR$(X);"[155][190][190][190][190][190][190][190][190][190][190][190][190][151]";CHR$(X):NEXT:PRINT"  123456789111":PRINT"           012":PRINT:IFYL=2THENRETURN
  85. 1030 PRINTTAB(12)"[163]":RETURN
  86. 1040 FORX=1TO9:PRINT"";:PRINT:FORM=1TOX:PRINT:NEXT:PRINTSPC(2);:FORY=1TO12:IFB%(X,Y)=1THENPRINT"";:GOTO1140
  87. 1050 IFB%(X,Y)=0THENPRINT"[144][188]";:GOTO1140
  88. 1060 IFT>0ANDT/3=INT(T/3)THENPRINT"[155][190]";:GOTO1140
  89. 1070 IFB%(X,Y)=2THENPRINT"[158][216]";:GOTO1140
  90. 1080 IFB%(X,Y)=3THENPRINT"[217]";:GOTO1140
  91. 1090 IFB%(X,Y)=4THENPRINT"[218]";:GOTO1140
  92. 1100 IFB%(X,Y)=5THENPRINT"[149][220]";:GOTO1140
  93. 1110 IFB%(X,Y)=6THENPRINT"[153][223]";:GOTO1140
  94. 1120 IFB%(X,Y)=7THENPRINT"[150][161]";
  95. 1130 IFB%(X,Y)=8THENPRINT"[159][162]";
  96. 1140 NEXT:NEXT:PRINT:PRINT:RETURN
  97. 1150 PRINT"[147]":PRINTTAB(14)AC$:PRINT"[144]   PRESS A LETTER TO CORRESPOND":PRINT"  TO HOW YOU WANT THE PROGRAM TO RUN[155].":PRINT"[151] PRNTR  VISTA  NWTIL  SECRT TICKR LETTR":PRINT"[155]  OFF     ON     OFF   NONE  YES    B":PRINT"[155]  ON      ON     OFF   ALL   YES    P"
  98. 1152 IFOP=5THENPO=2:PR=8:P1=.15:G8=2:KK=4:KE=1:POKE53272,19:GOTO1540
  99. 1200 PRINT"[155] OKMTE    ON     OFF   ALL   YES    O":PRINT"[155]  OFF     ON     OFF   NONE  YES    W":PRINT"[155]  OFF     OFF    OFF   ALL   NO     S":PRINT"[155]  OFF     OFF    ON    ALL   NO     H":PRINT"[155]  OFF     OFF    OFF   NONE  NO     T"
  100. 1250 PRINT"[158]  OFF     OFF    OFF   COMP  NO     K":PRINT"[155]  OFF     ON     OFF   TEST  NO     X":PRINT"[155] OKMTE    ON     OFF   TEST  YES    Q":PRINT"  K[151] IS DEFAULT MODE [155](FAST)":PRINTTAB(16)"";:POKE53272,19:SA$="PREHS AH LEHTER KIY5IY, PLIYZ":SYSC5:GOSUB7120:IFASC(V$)=13THENV$="K
  101. 1300 [139]V$[178]"S"[167]PR[178]8:P1[178].15
  102. 1310 [139]V$[178]"H"[167]PR[178]9:P1[178].3
  103. 1320 [139]V$[178]"O"[167]PR[178]2:P1[178].3
  104. 1330 [139]V$[178]"B"[167]PR[178]0:P1[178].42:PO[178]1
  105. 1340 [139]V$[178]"X"[167]DN[178]1:P1[178].15:PR[178]8:PO[178]1
  106. 1350 [139]V$[178]"Q"[167]DN[178]1:P1[178].15:PR[178]2:PO[178]1
  107. 1360 [139]V$[178]"P"[167]PR[178]1:P1[178].3
  108. 1370 [139]V$[178]"T"[167]PO[178]1:PR[178]8:P1[178].15
  109. 1380 [139]V$[178]"W"[167]PO[178]1:PR[178]7:P1[178].3
  110. 1390 [139]P1[178].5[167]V$[178]"K
  111. 1400 IFV$="K"THENPO=2:PR=8:P1=.15
  112. 1410 PRINTV$:G8=1:IFPR=8THENG8=2
  113. 1420 IFV$="K"THENSA$="DHIH4S IH4Z EH4KSPERT DIYFAOLXT MOHD.":SYSC5
  114. 1430 GOSUB4840:PRINT"[147][155] ENTER THE NUMBER OF PLAYERS[141]  (INCLUDING COMPUTER PLAYERS)":PRINTTAB(7)"[151]2-4 (4 IS DEFAULT)[145]     ";:IFP2<7THENSA$="EH5NTER AH NAH5MBER-FRAHM TUW5- TUW FOHER":SYSC5
  115. 1470 GOSUB7120:IFV$<>"2"ANDV$<>"3"THENV$="4
  116. 1480 KK[178][197](V$):[153]KK:[141]190:[159]15,4,15:[160]15:[139]PR[177]0[175]PR[179]5[175]ST[179][177]0[167][153]" TURN ON PRINTER!
  117. 1500 PRINT"[155] PRESS SPACE[146][155] FOR JOYSTICK INPUT":KE=1:PRINT" PLAYER 1[155] USES KEYBOARD[141] PLAYER 2[155] USES JOYSTICK 1":PRINT" PLAYER 3[155] USES JOYSTICK 2[141] PLAYER 4[155] USES KEYBOARD":GOSUB7120:IFV$<>" "THENKE=0
  118. 1540 GOSUB190:PRINT"[144][147]     ";KK;" PLAYERS   "AC$:PRINT"[155] FOR HUMAN PLAYERS, TYPE NAME OVER WHAT":PRINT" IS ALREADY IN THE BOX & PRESS RETURN[146]":PRINT" FOR COMPUTER PLAYERS, JUST HIT RETURN[146][149]":PRINT" OZ=POOR [149]  DI,MO,LU ARE GOOD COMP PLRS":PRINT"[151]  USING 7 LETTERS OR FEWER,"
  119. 1590 IFPR>6THEN1620
  120. 1600 SA$="FOHRX /HYUW5MUNZ, AH4P TUW SEH5VIXN LEH5TERZ AE5ND RIXTER4N.":SYSC5:SA$="FOHRX KUMPYUW5TER PLEY5ERZ, JAH5ST PREHS RIXTER4N.":SYSC5
  121. 1620 FORX=1TOKK:IFX=1THENPRINT"[151]   ENTER (WITH [155]RETURN[146][151])   [144][213][192][192][192][192][192][192][192][201]
  122. 1630 [139]X[177]1[167][153]"POKE   ENTER (WITH LISTRETURNWAITPOKE)   STOP-TANTANTANTANTANTANTAN<
  123. 1640 POKE198,0:PRINT"[151] THE NAME OF PLAYER #"X;"[144] [194][155]=======[144][221]":GOTO1700
  124. 1650 SR$="":IFX=2THENP2$="[193]DI====":SP$(X)="DAY
  125. 1660 [139]X[178]3[167]P2$[178]"ATNMO====":SP$(X)[178]"MOH5OH
  126. 1670 IFX=4THENP2$="[193]LU====":SP$(X)="LUX5UX
  127. 1680 [139]X[178]1[167]P2$[178]"ATNOZ====":SP$(X)[178]"AA5AAZ
  128. 1690 PRINTP2$;:HJ=7:GOTO1770
  129. 1700 PRINT"[144]                         [202][192][192][192][192][192][192][192][203]":PRINT"[145][145]";:P2$="":FORHJ=1TO7
  130. 1720 GOSUB7120:IFASC(V$)=13ANDHJ=1THEN1650:IFKE=0THEN1730
  131. 1722 SR$="[151]JOY#"+CHR$(47+X)
  132. 1724 IFX=1ORX=4THENSR$="[151]KEYBD"
  133. 1730 IFASC(V$)=13THENHJ=7:GOTO1770
  134. 1740 IFHJ>1ANDASC(V$)=32THEN1760
  135. 1750 IFASC(V$)>90ORASC(V$)<65THEN1720
  136. 1760 PRINTV$;:P2$=P2$+V$
  137. 1770 NEXT:POKE211,34:PRINTSR$
  138. 1771 P2$=P2$+"======":P1$(X)=LEFT$(P2$,7):NEXT:OU=266:PRINT
  139. 1773 PRINT"":CO=0:FORX=1TOKK:CO=CO+1:R(X,3)=1
  140. 1775 PRINT"[151]   "P1$(X),"[144]";R(X,2);CHR$(R(X,1)+64)
  141. 1779 IFLEFT$(P1$(X),1)<>"[193]"THENBI=.5
  142. 1810 B%(R(X,1),R(X,2))=0:IFR(X,2)*20+R(X,1)<OUTHENOT=X:OU=R(X,2)*20+R(X,1)
  143. 1820 NEXT:PRINT:PRINT"[151] THE PLAYER TO GO FIRST WILL BE":B7=0:SA$=SP$(OT):SYSC5:SA$="WIH6LX GOHOH FERST.":SYSC5:POKE39439,73:OPEN15,4,15:CLOSE15:PRINT"                         ";P1$(OT):IFPR>0ANDPR<5ANDST=0THENGOSUB4960
  144. 1860 GOSUB4840:IFPR=2THENPR=3
  145. 1870 FORY=1TO6:FORX=1TOKK:CO=CO+1:P%(X,Y,2)=R(CO,1):P%(X,Y,3)=R(CO,2):NEXT:NEXT:PRINT"[147]":RETURN
  146. 1890 IFBE*B7=0ORT>9THEN110
  147. 1900 PRINT"[151]";:FORX=1TOKK:PRINTP1$(X);" ";:NEXT:PRINT"[151]":PRINT"[152]                                    [145]":FORPX=1TO5:PRINTTAB((PX-1)*8)"";ABS(INT(D(PX)/3600));:IFPX<5THENPRINT"[151] [173][174]";
  148. 1930 NEXT:PRINT:FORM=2TO7:IFM/3=INT(M/3)THENPRINT"[152] FUNCTION KEYS CHANGE SPRITE USAGE     
  149. 1940 [139](M[170]1)[173]3[178][181]((M[170]1)[173]3)[167][153]"PRINT# ^ BORDER COLORS REPRESENT OPTIONS     
  150. 1950 IF(M+2)/3=INT((M+2)/3)THENPRINT"[152] PRESS + KEY TO RESTART GAME           
  151. 1960 [139]M[178]2[176]M[178]4[167][153]"POKETOTOTOTOTOTOTO TOTOTOTOTOTOTO TOTOTOTOTOTOTO TOTOTOTOTOTOTO TOTOTOTOTOTOTO
  152. 1970 NEXT:PRINT"[151][216][217][218][220][223][161][162] ";:PRINT"                                 [144]  [195][198][146]  [145]";:PRINT" ";:FORX=1TOKK:V$=STR$(MO(X))+"        ":PRINT"[155]$";MID$(V$,2,7);:NEXT:GOSUB2010:GOTO20
  153. 2010 PRINT"":PRINTTAB(31)" ";:FORX=2TO8:M=P%(0,X,0):IFM<9THENPRINT"";:GOTO2100
  154. 2030 IFM<10THENPRINT"[155]2";:GOTO2100
  155. 2040 IFM<11THENPRINT"[155]1";:GOTO2100
  156. 2050 IFM<38THENPRINT"[155]^";:GOTO2100
  157. 2060 IFM<39THENPRINT"3";:GOTO2100
  158. 2070 IFM<40THENPRINT"2";:GOTO2100
  159. 2080 IFM<41THENPRINT"1";:GOTO2100
  160. 2090 PRINT"[219]";
  161. 2100 NEXT:RETURN
  162. 2110 IFPR<>9THEN2200
  163. 2120 GOSUB3780:GOSUB190:PRINT"";:POKECB,10:POKEBC,2:PRINTTAB(20)"ALL LEAVE EXCEPT":PRINTTAB(21)P1$(OT):SA$="EH5VERIYBAH5DIY MAHST LIYV- EHKSEH5PT":SYSC5:SA$=SP$(OT):SYSC5:PRINTTAB(16)"IF ALL GONE HIT KEY":PRINTTAB(21)P1$(OT):P2=12:GOSUB4840:POKECB,12:POKEBC,12:GOSUB3780:PRINT"";:PRINTTAB(20)"COPY YOUR TILES":FORX=1TO6
  164. 2170 PRINTTAB(20)"[151]";X;"[144]";P%(OT,X,3);CHR$(P%(OT,X,2)+64):NEXT:PRINTTAB(20)"PRESS KEY":GOSUB4550:P2=27:GOSUB4840:P2=2:GOSUB3780:GOSUB5990:SA$="EH5VERIYBAH5DIY BAEK":SYSC5
  165. 2200 RETURN
  166. 2210 EB=0:TA=0:IFCM=0THENPOKEOT*8+1576,201:POKE55848+OT*8,OT-1
  167. 2220 GOSUB3780:GOSUB190:PRINT"":PRINT:IFCM=0THENGOSUB210
  168. 2230 PRINTTAB(20)P1$(OT)",":SA$=SP$(OT):SYSC5:IFCM=0THENGOSUB240
  169. 2240 GOSUB7100:IFMR=1THEN2290
  170. 2250 FORY=1TO6:WL=P%(OT,Y,2):WN=P%(OT,Y,3):GOSUB2490:IFTD<>2THENMR=1
  171. 2260 NEXT:IFMR=1THEN2290
  172. 2270 SA$="AOLX TAYYULZ AARX-AXNPLEYAXBUL.":SYSC5:PRINTTAB(21)"CAN NOT PLAY":GOTO2680
  173. 2290 IFCM*PO=1ANDDN=0THENGOSUB4550:GOSUB5390:GOSUB5990:GOTO2440
  174. 2300 IFCM=1ANDDN=0THENGOSUB5390:GOTO2440
  175. 2310 IFCM*OT*DN=1ORCM*DN*P1=.8THENGOSUB5390:GOTO2440
  176. 2320 IFCM=1ANDDN>0THENFF=2:GOSUB5390:GOSUB3780:GOSUB4710:GOSUB5990:GOTO2440
  177. 2330 IFPO>0ANDPRTHENFF=2:GOSUB3780:GOTO4630
  178. 2340 PRINTTAB(21)"CHOOSE A TILE":IFCO<42THENSA$="CHUXZ AH TAYLX.":SYSC5
  179. 2350 IFCO>45ANDCO<62THENSA$="CHUXZ.":SYSC5
  180. 2360 IFPR=0THENFF=2:GOSUB3780:GOTO4630
  181. 2370 IFKE=0OROT=1OROT=4THENPRINTTAB(20)"[144]F5 [151]DISPLAYS TILES
  182. 2380 [153][163]20)"THEN PRESS # KEY"
  183. 2390 [141]240:[141]190:HI[178]69:[139]O1[178]1[167]HI[178]79
  184. 2400 [141]7120:[139]V$[178]"READ"[167]FF[178]2:[141]3780:[137]4630
  185. 2410 [139]V$[178]"8"[167]BE[178]1:B7[178]2:[141]1890:BE[178]0
  186. 2420 [139]V$[178]"7"[175]O1[178]1[167][151]BC,3:O1[178]3
  187. 2430 [141]5990:W[178][197](V$):[141]3780
  188. 2440 [139]W[177]6[176]W[179]1[167]2220
  189. 2450 WN[178]P%(OT,W,3):WL[178]P%(OT,W,2):[139]WL[177]9[167]2220
  190. 2460 [141]4580:[153][163]20)"PRINT";"";WN;[199](WL[170]64);"":[141]2490:[145]TD[137]2480,3370,2620,2470
  191. 2470 [141]3060:[137]2600
  192. 2480 B%(WL,WN)[178]0:TA[178]1:[137]2670
  193. 2490 TD[178]0:ME[178]0:JO[178]0:NW[178]B%(WL[171]1,WN):SW[178]B%(WL[170]1,WN):EW[178]B%(WL,WN[170]1):WW[178]B%(WL,WN[171]1):[129]X[178]1[164]19:JI(X)[178]0:[130]:[139]EW[179][177]1[176]WW[179][177]1[167]2530
  194. 2510 [139]SW[179][177]1[176]NW[179][177]1[167]2530
  195. 2520 TD[178]1:[142]
  196. 2530 [139]EW[177]1[176]WW[177]1[167]2560
  197. 2540 [139]NW[177]1[176]SW[177]1[167]2560
  198. 2550 TD[178]2:[142]
  199. 2560 JI(EW)[178]JI(EW)[170]1:JI(WW)[178]JI(WW)[170]1:JI(NW)[178]JI(NW)[170]1:JI(SW)[178]JI(SW)[170]1:[129]X[178]2[164]8:[139]JI(X)[167]ME[178]ME[170]1:JO[178]X
  200. 2580 [130]:EU[178]1:[139]ME[177]1[167]TD[178]4:[142]
  201. 2590 TD[178]3:[142]
  202. 2600 [139]EU[178]2[167]:[141]3660:[137]2210
  203. 2610 [141]1890:[137]2670
  204. 2620 B%(WL,WN)[178]JO:[139]EW[178]0[167]B%(WL,WN[170]1)[178]JO:P%(0,JO,0)[178]P%(0,JO,0)[170]1
  205. 2630 [139]NW[178]0[167]B%(WL[171]1,WN)[178]JO:P%(0,JO,0)[178]P%(0,JO,0)[170]1
  206. 2640 [139]SW[178]0[167]B%(WL[170]1,WN)[178]JO:P%(0,JO,0)[178]P%(0,JO,0)[170]1
  207. 2650 [139]WW[178]0[167]B%(WL,WN[171]1)[178]JO:P%(0,JO,0)[178]P%(0,JO,0)[170]1
  208. 2660 P%(0,JO,0)[178]P%(0,JO,0)[170]1
  209. 2670 [141]3660
  210. 2680 [141]5990:[142]
  211. 2690 B7[178]0:TE[178]99999:[141]2010:[141]3670:EZ[178]4:YB[178]0:[129]X[178]2[164]8:[139]P%(0,X,0)[172]P%(5,X,1)[177]0[175]TE[177]VA(X)[167]TE[178]VA(X)
  212. 2710 [139]MO(OT)[177][178]TE[167]YB[178]1
  213. 2720 [129]Y[178]1[164]KK:[139]P%(Y,X,1)[177][178]EZ[167]EZ[178]P%(Y,X,1)[170]3
  214. 2730 [130]:[130]:[139]YB[178]0[167]3050
  215. 2740 [141]3780:[153][163]21)P1$(OT):SA$[178]SP$(OT):[158]C5:[139]CM[178]1[167]BE[178]1:[137]2840
  216. 2750 [153][163]20)"***FOR*SYS*******FOR****":[153][163]20)"*FOR*SYS** LISTSTOCKSYS **FOR**":[153][163]20)"**FOR*SYS*       *FOR***":[153][163]20)"*FOR*SYS** LIST BUY SYS **FOR**":[153][163]20)"**FOR*SYS*       *FOR***":[153][163]20)"*FOR*SYS** LISTTIME!SYS **FOR**":[153][163]20)"***FOR*SYS*******FOR****":[153][163]21)"POKEPRESS # KEY UP":[153][163]22)"POKETO 3 SHARES."
  217. 2790 [139]CO[179]34[167]SA$[178]"IHTS TAY6M TUW BAY STAAK.":[158]C5
  218. 2800 [139]CO[177]33[175]CO[179]39[167]SA$[178]"STAA5K TAYM.":[158]C5
  219. 2810 P2[178]1:[139]CO[177]KK[172]12[167]P2[178].5
  220. 2820 [141]4840:P2[178]2:[139]V[178]9[167][141]1040
  221. 2830 BE[178]1:[139]V[178]8[167]RZ[178]EZ:EZ[178]15:B7[178]2:[141]1890:EZ[178]RZ
  222. 2840 [141]7310:[129]M1[178]1[164]VY:[139]CM[178]1[175]M1[177]1[167]2890
  223. 2850 [139]MO(OT)[179]TE[167]3040
  224. 2860 [141]3780:[153][163]20)"YOU HAVE $";MO(OT):[153][163]20)"LIST# PRICE  STOCK":[129]X[178]2[164]8:[139]P%(0,X,0)[177]0[175]P%(5,X,1)[177]0[167][153][163]17)"STOP";X[171]1;VA(X);NA$(X)
  225. 2880 [130]:[139]O1[178]1[175]M1[178]3[167][153][163]18)"STOP8 POKEGAME OVER _
  226. 2890 IFCM=1ANDM1=1THENGOSUB6020:GOTO2920
  227. 2900 IFCM=1THENX=SP:GOSUB6070:GOTO2920
  228. 2910 HI=89:GOSUB7120:SP=VAL(V$)+1
  229. 2920 IFSP>9ORSP<2THENM1=VY:GOTO3040
  230. 2930 IFSP=9ANDO1=1THENO1=3:M1=2:GOTO3040
  231. 2940 IFSP=9THENM1=VY:GOTO3040
  232. 2950 IFP%(0,SP,0)<2ORP%(5,SP,1)<1THEN3040
  233. 2960 IFMO(OT)<VA(SP)THEN3040
  234. 2970 IFCM<>1OR(DN+1)*M1=1THENGOSUB3780
  235. 2980 P%(5,SP,1)=P%(5,SP,1)-1:B7=1:P%(OT,SP,1)=P%(OT,SP,1)+1:MO(OT)=MO(OT)-VA(SP):IFVY>3THEN3030
  236. 3000 IFCMANDDNTHEN3030
  237. 3010 PRINTTAB(16)NA$(SP);:PRINT"  [144]$";VA(SP):PRINTTAB(16)"[155]YOU NOW HAVE";:PRINT"  [144]$";MO(OT):P2=.7
  238. 3030 SA$=SC$(SP):SYSC5:IFCM<>1ORM1=3THENPOKEBC,7:GOSUB4840:POKEBC,12
  239. 3040 P2=2:NEXT
  240. 3050 RETURN
  241. 3060 AG(6)=EW:AG(5)=WW:AG(7)=NW:AG(8)=SW:GOSUB3780:D(OT)=D(OT)+TI-IT:IT=TI:FORX=1TO4:AG(X)=AG(7):IFP%(0,AG(6),0)>P%(0,AG(X),0)THENAG(X)=AG(6)
  242. 3080 IFP%(0,AG(8),0)>P%(0,AG(X),0)THENAG(X)=AG(8)
  243. 3090 IFP%(0,AG(5),0)>P%(0,AG(X),0)THENAG(X)=AG(5)
  244. 3100 FORY=5TO8:IFAG(Y)=AG(X)THENAG(Y)=0
  245. 3110 NEXT:NEXT:IFP%(0,AG(2),0)<11THEN3140
  246. 3120 PRINTTAB(22)"[144]UNMERGIBLES":EU=2:SA$="AHNPLEYAHBUL.":SYSC5:SA$=",NOH3 MER4JER.":SYSC5:B%(WL,WN)=1:GOSUB5990:RETURN
  247. 3140 FORM=1TO3:PRINTTAB(21)"           [146]":NEXT:GOSUB230:PRINTTAB(23)"[145][145]MERGER![146]":M=FRE(0):GOSUB240:SA$="MER4JER.":SYSC5:IFP%(0,AG(2),0)<>P%(0,AG(1),0)THEN3200
  248. 3160 GOSUB3770:PRINT"":PRINTTAB(25)P1$(OT)",":PRINTTAB(24)"CHOOSE":PRINTTAB(21)"DOMINANT CHAIN":FORX=1TO2:PRINTTAB(17)"[144]";X;NA$(AG(X)):NEXT:IFCM=1THENGOSUB6900:GOTO3190
  249. 3180 HI=29:GOSUB7120:IFV>2ORV<1THEN3180
  250. 3190 IFV=2THENAG(5)=AG(1):AG(1)=AG(2):AG(2)=AG(5)
  251. 3200 JO=0:IFEW=0THENJO=JO+1:B%(WL,WN+1)=AG(1)
  252. 3210 SA$=SC$(AG(1)):SYSC5:SA$="TEYKS OHVER":SYSC5:SA$=SC$(AG(2)):SYSC5:IFWW=0THENJO=JO+1:B%(WL,WN-1)=AG(1)
  253. 3230 IFNW=0THENJO=JO+1:B%(WL-1,WN)=AG(1)
  254. 3240 IFSW=0THENJO=JO+1:B%(WL+1,WN)=AG(1)
  255. 3250 B%(WL,WN)=AG(1):P%(0,AG(1),0)=P%(0,AG(1),0)+1+P%(0,AG(2),0)+JO:P%(0,AG(2),0)=0:FORX=1TO9:FORY=1TO12:IFB%(X,Y)=AG(2)THENB%(X,Y)=AG(1)
  256. 3270 NEXT:NEXT:ZV=2:IFP%(0,AG(3),0)>0THENZV=3:GOTO3300
  257. 3280 IFP%(0,AG(4),0)>0THENZV=4:GOTO3330
  258. 3290 GOTO3360
  259. 3300 P%(0,AG(1),0)=P%(0,AG(1),0)+P%(0,AG(3),0):P%(0,AG(3),0)=0:FORX=1TO9:FORY=1TO12:IFB%(X,Y)=AG(3)THENB%(X,Y)=AG(1)
  260. 3320 NEXT:NEXT:GOTO3280
  261. 3330 P%(0,AG(1),0)=P%(0,AG(1),0)+P%(0,AG(4),0):P%(0,AG(4),0)=0:FORX=1TO9:FORY=1TO12:IFB%(X,Y)=AG(4)THENB%(X,Y)=AG(1)
  262. 3350 NEXT:NEXT
  263. 3360 GOTO4320
  264. 3370 BE=0:B6=0:NA$(2)="T[158]OWER":NA$(3)="LUXOR":NA$(4)="AMERICAN":NA$(5)="W[149]ORLDWIDE":NA$(6)="F[153]ESTIVAL":NA$(7)="I[150]MPERIAL":NA$(8)="C[159]ONTINENTAL":NA$(9)="N[155]ONE ":FORX=2TO8:IFP%(0,X,0)=0THENBE=1:B6=B6+1:B5=X
  265. 3410 NEXT:IFBE=1THENB7=1:GOTO3450
  266. 3420 SA$="AHNPLEYAHBUL":SYSC5:PRINTTAB(20)"[158]UNPLAYABLE":IFEB=5THEN2680
  267. 3430 W=W+1:EB=EB+1:IFW=7THENW=1
  268. 3440 PRINT"":P2=1:GOTO2450
  269. 3450 GOSUB3770:IFB6=1THENTH=B5:GOTO3570
  270. 3460 PRINT"";:PRINTTAB(21)P1$(OT):PRINTTAB(18)"DECIDE WHAT TO NAME":PRINTTAB(18)"YOUR NEW CHAIN.":SA$=SP$(OT):SYSC5:SA$="NEYM YUXR NUX CHEYN.":SYSC5:IFCMTHEN3490
  271. 3490 P2=1:GOSUB4840:P2=2:GOSUB3780:PRINT"";:PRINTTAB(20)"PRESS CORRECT #":FORX=1TO7:IFP%(0,X+1,0)THENPRINTTAB(20)"[151]";X;"[151]";" - (TAKEN)":GOTO3520
  272. 3510 PRINTTAB(20)"[151]";X;"";NA$(X+1)
  273. 3520 NEXT
  274. 3530 IFCM=1THENGOSUB6810:GOTO3550
  275. 3540 HI=89:GOSUB7120:TH=VAL(V$):IFTH<1ORTH>7THEN3530
  276. 3550 TH=TH+1:IFP%(0,TH,0)>0THEN3530
  277. 3560 GOSUB3780
  278. 3570 PRINT"";:PRINT:PRINTTAB(21)P1$(OT):PRINTTAB(20)"YOU HAVE CHOSEN:":PRINTTAB(19)V$;NA$(TH):SA$=SC$(TH):SYSC5:B%(WL,WN)=TH:P%(0,TH,0)=1:P%(5,TH,2)=WL:P%(5,TH,3)=WN:IFEW=0THENP%(0,TH,0)=P%(0,TH,0)+1:B%(WL,WN+1)=TH
  279. 3610 IFSW=0THENP%(0,TH,0)=P%(0,TH,0)+1:B%(WL+1,WN)=TH
  280. 3620 IFNW=0THENP%(0,TH,0)=P%(0,TH,0)+1:B%(WL-1,WN)=TH
  281. 3630 IFWW=0THENP%(0,TH,0)=P%(0,TH,0)+1:B%(WL,WN-1)=TH
  282. 3640 IFP%(5,TH,1)>0THENP%(OT,TH,1)=P%(OT,TH,1)+1:P%(5,TH,1)=P%(5,TH,1)-1
  283. 3650 GOSUB1040:TA=1:GOTO2670
  284. 3660 CO=CO+1:P%(OT,W,3)=R(CO,2):P%(OT,W,2)=R(CO,1):P%(OT,8,3)=W:RETURN
  285. 3670 FORX=2TO8:VA(X)=0:IFX>6THENVA(X)=VA(X)+100
  286. 3680 IFX>3THENVA(X)=VA(X)+100
  287. 3690 IFP%(0,X,0)<1THENVA(X)=0
  288. 3700 IFP%(0,X,0)<6THENVA(X)=VA(X)+P%(0,X,0)*100
  289. 3710 IFP%(0,X,0)>5ANDP%(0,X,0)<11THENVA(X)=VA(X)+600
  290. 3720 IFP%(0,X,0)>10ANDP%(0,X,0)<21THENVA(X)=VA(X)+700
  291. 3730 IFP%(0,X,0)>20ANDP%(0,X,0)<31THENVA(X)=VA(X)+800
  292. 3740 IFP%(0,X,0)>30ANDP%(0,X,0)<41THENVA(X)=VA(X)+900
  293. 3750 IFP%(0,X,0)>40THENVA(X)=VA(X)+1000
  294. 3760 NEXT:RETURN
  295. 3770 GOSUB250
  296. 3780 GOSUB7310:IFCM=0ANDPR<8THENGOSUB240
  297. 3790 FORM=1TO12:PRINTTAB(16)"[152]<>[]/-*-+[221][221]+-*-/[]<><>+":NEXT
  298. 3800 POKE646,OT-1:PRINTTAB(17)AC$"[151]";:RETURN:GOSUB190
  299. 3830 FORZL=2TOZV:MT=OT:GOTO3870
  300. 3840 MT=MT+1:IFMT>KKTHENMT=1
  301. 3850 IFMT=OTTHENNEXT:B7=2:D(5)=D(5)+TI-IT:IT=TI:RETURN
  302. 3860 IFP%(MT,AG(ZL),1)<1THEN3840
  303. 3870 YL=2:EZ=15:PRINT"";:FORHM=1TO4:IFP%(MT,AG(ZL),1)<1THEN4310
  304. 3880 GOSUB3780:IFO1=2THENV=1:GOTO4020
  305. 3890 PRINTTAB(21)P1$(MT):SA$=SP$(MT):SYSC5:PRINTTAB(18)NA$(AG(ZL)):PRINTTAB(20)"ENTER A CHOICE":PRINTTAB(20)"[144]1 [151] SELL STOCK":PRINTTAB(20)"[144]2 [151] TRADE STOCK":PRINTTAB(20)"[144]3 [151] HOLD STOCK":IFLEFT$(P1$(MT),1)="[193]"THENV=1:GOTO3980
  306. 3930 IFCO>11*KKORHM>1THEN3960
  307. 3940 SA$="WHAH5T DUW YUW WAANT TUW DUW6 WHIHTH YUXRX":SYSC5:SA$=SC$(AG(ZL))+" STAAK.":SYSC5
  308. 3960 C=15:IFHM>1THENC=35
  309. 3970 HI=39:GOSUB7130:IFV<1ORV>3THEN3960
  310. 3980 GOSUB3780:PRINT"";TAB(18)NA$(AG(ZL)):PRINTTAB(17)"YOU HAVE";P%(MT,AG(ZL),1);"SHARE";:IFV=3THENHM=HM+1
  311. 4000 IFP%(MT,AG(ZL),1)<>1THENPRINT"S
  312. 4010 [153]:[153][163]22)P1$(MT):[145]V[137]4020,4130,4310
  313. 4020 [139]O1[178]2[167]6980
  314. 4030 [139][200](P1$(MT),1)[178]"ATN"[167]6980
  315. 4040 [153][163]20)"STOPHOW MANY DO YOU":[153][163]20)"STOPWANT TO SELL?":[153][163]20)"STOPPRESS A #, 1-9":[139]VT[179]2[176]VT[177]3[176]KE[178]0[167][153][163]20)"PRESS "WE$"A"WE$;" STOPFOR ALL"
  316. 4050 [139]CO[177]KK[172]13[167]:SA$[178]"OH-KEY?":[158]C5:[137]4080
  317. 4060 SA$[178]"/HAW MEHNIY SHEYRXZ AHV":[158]C5:SA$[178]SC$(AG(ZL)):[158]C5:SA$[178]"DUW YUW WAANT TUW SEHLX.":[158]C5
  318. 4080 HI[178]P%(MT,AG(ZL),1)[172]10[170]8:C[178]HI:[141]7130
  319. 4090 [139]V$[178]"A"[167]V[178]P%(MT,AG(ZL),1)
  320. 4092 XV[178]V:[139]XV[177]P%(MT,AG(ZL),1)[167]4080
  321. 4100 CA[178]XV[172]VA(AG(ZL)):[153][163]20)"PRICE $";CA:[153][163]20)"LISTFOR ";P1$(MT):MO(MT)[178]MO(MT)[170]CA:P%(MT,AG(ZL),1)[178]P%(MT,AG(ZL),1)[171]V:P%(5,AG(ZL),1)[178]P%(5,AG(ZL),1)[170]V:[137]4290
  322. 4130 [153][163]21)"STOPYOU WANT HOW":[153][163]20)"STOPMANY SHARES OF":SA$[178]"/HAW MEHNIY SHEYRXZ AHV":[158]C5:SA$[178]SC$(AG(1)):[158]C5:SA$[178]"DUW YUW WAANT TUW GEHT.":[158]C5:[139]PR[179][177]0[167]4190
  323. 4160 SA$[178]"RIYMEHMBER. YUW NIYD TUW5 SHEYRXZ AHV":[158]C5:SA$[178]SC$(AG(ZL)):[158]C5:SA$[178]"TUW GEHT WAHN5 AHV":[158]C5:SA$[178]SC$(AG(1)):[158]C5
  324. 4190 [153][163]16)P%(5,AG(1),1);[200](NA$(AG(1)),9);"STOPAVLB":[153][163]20)"STOPPRESS A #, 1-9":HI[178][181](P%(MT,AG(ZL),1)[173]2)[172]10[170]8:[139]P%(5,AG(1),1)[172]10[170]8[179]HI[167]HI[178]P%(5,AG(1),1)[172]10[170]8
  325. 4220 C[178]HI:[141]7130:XV[178]V
  326. 4230 [139]XV[172]2[177]P%(MT,AG(ZL),1)[167][153][163]20)"NEED";XV[172]2;"STOPFOR"XV:[137]4290
  327. 4240 [139]XV[177]P%(5,AG(1),1)[167][153][163]20)"BANK HASN'T!":[137]4290
  328. 4250 [153]"";:[153][163]20)"GOT";XV;"SHARE";:[139]XV[179][177]1[167][153]"S
  329. 4260 P%(MT,AG(ZL),1)=P%(MT,AG(ZL),1)-XV*2:P%(5,AG(ZL),1)=P%(5,AG(ZL),1)+XV*2:P%(5,AG(1),1)=P%(5,AG(1),1)-XV:P%(MT,AG(1),1)=P%(MT,AG(1),1)+XV
  330. 4290 IFO1=2THEN4310
  331. 4300 P2=3:GOSUB4840
  332. 4310 NEXT:GOSUB4840:GOTO3840
  333. 4320 FORZ=2TOZV:Y=Z:FORM=1TO4:SH(M)=P%(M,AG(Y),1):NEXT:IFKK=2THENSH(3)=INT(RND(0)*12)+1:PRINTTAB(23)"BANK ";SH(3):GOSUB4840
  334. 4340 SH(5)=SH(1):SH(6)=SH(2):SH(7)=SH(3):SH(8)=SH(4):SH(0)=0:SH(9)=0:SH(10)=0:FORX=1TO4:GG(X)=SH(5):GG(X+4)=1:IFSH(6)>GG(X)THENGG(X)=SH(6):GG(X+4)=2
  335. 4360 IFSH(7)>GG(X)THENGG(X)=SH(7):GG(X+4)=3
  336. 4370 IFSH(8)>GG(X)THENGG(X)=SH(8):GG(X+4)=4
  337. 4380 FORY=5TO8:IFGG(X)=SH(Y)ANDSH(Y)>0THENSH(X+8)=SH(8+X)+1
  338. 4390 IFGG(X)=SH(Y)ANDSH(8+X)=1THENSH(Y)=0
  339. 4400 ZX(Y-4)=0:NEXT:NEXT:GG(8)=10:FORX=5TO7:GG(8)=GG(8)-GG(X):NEXT:IFSH(9)=0THENSH(9)=1
  340. 4420 IFSH(10)=0THENSH(10)=1:GG(6)=GG(5)
  341. 4430 IFSH(9)>1THENSH(10)=SH(9)
  342. 4450 GOSUB3780:PRINT"";:PRINTTAB(25)"[155]BONUSES":IFO1=2THENSA$=SC$(MY):SYSC5
  343. 4460 IFVA(AG(Z))=0THEN4540
  344. 4470 RX=VA(AG(Z))*10:FORPX=1TOSH(9):ZX(GG(PX+4))=RX/SH(9):NEXT:DX=1:IFSH(9)=1THENDX=2
  345. 4490 RX=VA(AG(Z))*5:FORPX=DXTOSH(10)+INT(DX/2):ZX(GG(PX+4))=ZX(GG(PX+4))+RX/SH(10):NEXT:FORPX=1TOKK:ZX(PX)=INT(ZX(PX)):MO(PX)=MO(PX)+ZX(PX):IFZX(PX)=0THEN4530
  346. 4520 PRINTTAB(20)P1$(PX);"$";ZX(PX):SA$="BOH5NAHS FOHRX":SYSC5:SA$=SP$(PX):SYSC5
  347. 4530 NEXT:P2=5:GOSUB4840:GOSUB4840:P2=2
  348. 4540 NEXT:GOTO3830
  349. 4550 PRINT"":FORZ8=1TO6:X8=P%(OT,Z8,2):Y8=P%(OT,Z8,3):IFY8<50THENPOKE1065+X8*40+Y8,Z8+48
  350. 4570 NEXT:RETURN
  351. 4580 ONG8GOSUB280,200:PRINT"";:PRINT:FORM=1TOWL:PRINT:NEXT:PRINTSPC(WN+1);:PRINT"[144][188]";:IFG8=3THENP2=.3:GOTO4620
  352. 4590 IFG8=2THENP2=2:GOTO4620
  353. 4600 POKEVS+21,3:P2=.3:FORNY=NYTO250STEP4:POKEVS+1,NY:POKEVS+3,NY+1:SYSC4,V3,F(NY^2):NEXT:SYSC4,L0,V2,F1:SYSC4,V3,F1
  354. 4620 GOSUB4840:P2=2:POKEVS+21,0:RETURN
  355. 4630 IFPO<1THENSA$=SP$(OT):SYSC5
  356. 4640 IFFF=1THENSA$=" AHLOH5N.":SYSC5
  357. 4650 GOSUB3780:PRINT"":PRINT:IFCM=0THENGOSUB210
  358. 4660 PRINTTAB(20)"[155]";P1$(OT)",":IFFF=2THENPRINTTAB(20)" CHOOSE A TILE   ":IFCO<60THENSA$="CHUXZ.":SYSC5
  359. 4680 IFFF=1THENPOKEBC,2:IFCO<50THENSA$="YUWRX NUW TAYLXZ.":SYSC5
  360. 4690 IFFF=1THENPRINTTAB(20)" PRESS A KEY  ":POKECB,10:P2=5:GOSUB4840
  361. 4700 IFFF=1THENGOSUB3780:PRINTTAB(20)"[155]YOUR NEW TILES:
  362. 4710 P2[178]2:[151]CB,12:[151]BC,12:[141]4550:[139]FF[178]2[167][141]240:[141]3780
  363. 4720 [153]:[139]CM[178]0[167][141]210
  364. 4730 [129]X[178]1[164]6:[139]X[178]P%(OT,8,3)[167][153][163]19)"STOP";X;"";P%(OT,X,3);[199](P%(OT,X,2)[170]64);
  365. 4740 [139]X[179][177]P%(OT,8,3)[167][153][163]19)"POKE";X;"LIST";P%(OT,X,3);[199](P%(OT,X,2)[170]64);
  366. 4750 [139]DN[172]CM[177]0[175]W[179][177]X[167][153]"POKE  _ ";R(X,3);
  367. 4760 [139]DN[172]CM[177]0[175]W[178]X[167][153]"CLR  _ STOP";R(X,3);
  368. 4770 [153]:[130]:[141]240:[139]DN[177]0[175]CM[178]1[167]P[178]1:P1[178]P1[172]2:[141]4840:P1[178]P1[173]2:[142]
  369. 4780 [139]O1[178]1[175]FF[178]2[167][153][163]21)"POKE7  LISTGAME OVER?
  370. 4790 IFFF=1THENPRINTTAB(20)"PRESS ANY KEY":P2=12:GOSUB4840:P2=2:GOSUB5990
  371. 4800 IFFF=1THENGOSUB3780:IFCO>30THENSA$="EH5VERIYBAH5DIY BAEK.":SYSC5
  372. 4810 IFFF=1ANDCO<31THENSA$="EH5VERIYBAH5DIY KAEN KAHM BAEK - NAW":SYSC5
  373. 4820 GOSUB240:IFFF=1THEN960
  374. 4830 GOTO2390
  375. 4840 V=0:FORM=1TO20:GETV$:IFV$="[140]"THENGOSUB5830
  376. 4850 NEXT:GOSUB7310:FORYU=0TOP1*P2*6:FZ=INT(RND(0)*5)*12:SYSC4,V3,WT,FFR(FZ+9),D11,S0,R0:SYSC4,L3,WT,V2,FFR(FZ),D11,S0,R0:FORU=1TO80:NEXT:SYSC4,V1,WT,FFR(FZ+4),D11,S0,R0:SYSC4,V3,FFR(12),D11,S0,R0:SYSC4,WT,V2,FFR(FZ+7),D11,S0,R0:FORU=1TO160:NEXT:GETV$:IFV$<>""THENYU=99999
  377. 4890 NEXT:SYSC4,L0,V2,F1:SYSC4,V3,F1:RETURN
  378. 4900 FORQ=1TO9:FORM=1TO12:IFB%(Q,M)<>1THEN4950
  379. 4910 IFB%(Q+1,M)=1THENRUN
  380. 4920 IFB%(Q-1,M)=1THENRUN
  381. 4930 IFB%(Q,M+1)=1THENRUN
  382. 4940 IFB%(Q,M-1)=1THENRUN
  383. 4950 NEXT:NEXT:RETURN
  384. 4960 OPEN3,4:P2$=CHR$(16):FORX=1TOKK:IFX=1THENPRINT#3,P2$"04";P1$(X);
  385. 4970 IFX=2THENPRINT#3,P2$"22";P1$(X);
  386. 4980 IFX=3THENPRINT#3,P2$"40";P1$(X);
  387. 4990 IFX=4THENPRINT#3,P2$"58";P1$(X);
  388. 5000 NEXT:PRINT#3:X=0:FORY=1TO108:SR$=CHR$(R(Y,1)+64):X=X+1:IFX>KKTHENX=1:PRINT#3
  389. 5010 IFY<=KKTHENLP=101:GOTO5040
  390. 5020 IFY<=KK*7THENLP=-INT((Y-1)/KK):GOTO5040
  391. 5030 LP=INT((Y-1)/KK)-6:IFY=KK*7+1THENPRINT#3,:X=OT
  392. 5040 IFPR=2THEN5090
  393. 5050 IFX=1THENPRINT#3,LP;" ";SR$;" ";R(Y,2);"    ";
  394. 5060 IFX=2THENPRINT#3,LP;" ";SR$;" ";R(Y,2);"    ";
  395. 5070 IFX=3THENPRINT#3,LP;" ";SR$;" ";R(Y,2);"    ";
  396. 5080 IFX=4THENPRINT#3,LP;" ";SR$;" ";R(Y,2);"    ";:GOTO5170
  397. 5090 IFX=1THENPRINT#3,CHR$(18);LP;CHR$(146);")";
  398. 5100 IFX=2THENPRINT#3,P2$"18(";CHR$(18);LP;CHR$(146);")";
  399. 5110 IFX=3THENPRINT#3,P2$"36(";CHR$(18);LP;CHR$(146);")";
  400. 5120 IFX=4THENPRINT#3,P2$"54(";CHR$(18);LP;CHR$(146);")";
  401. 5130 IFX=1THENPRINT#3,P2$"05"SR$P2$"07";R(Y,2);
  402. 5140 IFX=2THENPRINT#3,P2$"23"SR$P2$"25";R(Y,2);
  403. 5150 IFX=3THENPRINT#3,P2$"41"SR$P2$"43";R(Y,2);
  404. 5160 IFX=4THENPRINT#3,P2$"59"SR$P2$"61";R(Y,2);
  405. 5170 IFY=KKTHENPRINT#3
  406. 5180 NEXT:PRINT#3,EW$:CLOSE3:RETURN
  407. 5190 O1=1:FORX=2TO8:IFCO<6*KK+20THENO1=0
  408. 5200 IFP%(0,X,0)>0ANDP%(0,X,0)<11THENO1=0
  409. 5210 IFP%(0,X,0)>40THENO1=1:X=8
  410. 5220 NEXT:RETURN
  411. 5230 SA$="GEYM-IHZ-OH5VER.":SYSC5:POKE53270,PEEK(53270)OR16:O1=2:PRINT"[147]";:PRINTTAB(15)"GAME IS OVER":P2=3:GOSUB4840:GOSUB1000:GOSUB3780:GOSUB1040:GOSUB1900:POKE53270,PEEK(53270)AND239:FORMY=2TO8:AG(2)=MY:ZV=2:GOSUB4320:NEXT:GOSUB3780:GOSUB230:PRINTTAB(21)"   GAME OVER!  [146]":Z=0
  412. 5270 Y=0:FORX=1TOKK:PRINTTAB(21)P1$(X);" $";MO(X):IFMO(X)>MO(Y)THENY=X
  413. 5280 NEXT:PRINTTAB(22)"THE WINNER IS":PRINTTAB(26)P1$(Y):SA$=SP$(Y):SYSC5:GOSUB240:IFZ=0THENP2=20:GOSUB4840:SA$="IHNKLUXDIHNGX TAYM.":SYS39424
  414. 5282 IFZ=0THENPRINT"";:PRINTTAB(21)"[158] INCLUDING TIME [155]"
  415. 5284 IFZ=0THENFORZ=1TOKK:MO(Z)=MO(Z)-INT(D(Z)/36)+1000:NEXT:GOTO5270
  416. 5290 PRINTTAB(27)"[155]HAS"FRE(0)"K.":P2=20:GOSUB4840:PRINTTAB(17)"HIT SPACE[146] FOR NEW GAME":PRINTTAB(16)"[151]OTHER KEY TO SAVE SCORE"
  417. 5310 OT=1:GOSUB7120:IFV$=" "THENCLR:RUN
  418. 5320 POKE50000,INT(1.9*Y):OPEN15,8,15:CLOSE15:IFST<>0THEN5310
  419. 5330 OPEN4,8,9,"@0:TEMPSCORE,S,W":PRINT#4,MO(Y);EW$;P1$(Y);EW$;KK;EW$:FORM=1TO4:PRINT#4,P1$(M);EW$;MO(M);EW$:NEXT:CLOSE4,8,9:POKE55,0:POKE56,110:IFY=1THENLOAD"SA3",8:CLR:RUN
  420. 5360 LOAD"SA3",8:CLR:RUN
  421. 5390 IFO1*BE<>1THEN5410
  422. 5400 IFINT(RND(0)*25)=7ORCO>101THENO1=3:SA$="GEYM-IHZ-OH5VER.":SYSC5
  423. 5410 FORY=2TO8:R(Y,1)=0:R(0,1)=0:R(Y+7,0)=60:IFOT/2=INT(OT/2)ANDY/2=INT(Y/2)THENR(Y+7,0)=45
  424. 5430 IFOT/2<>INT(OT/2)ANDY/2<>INT(Y/2)THENR(Y+7,0)=45
  425. 5440 UB=0:NEXT:W=INT(RND(0)*6)+1:V$=CHR$(W+48):IFOT=1ORP1=.42THENRETURN
  426. 5450 FORY=1TO6:R(Y,2)=0:WN=P%(OT,Y,3):WL=P%(OT,Y,2):IFWN>20THENTD=5:GOTO5720
  427. 5460 GOSUB2490:TF(Y)=TD:MW=0:UB=0:IFTD=4THENR(Y,2)=0:QD=0:GOSUB5480
  428. 5470 GOTO5720
  429. 5480 IFEW>1THENR(EW+7,0)=82:MW=EW
  430. 5490 IFWW>1THENR(WW+7,0)=82:IFP%(0,MW,0)=0ORP%(0,WW,0)<P%(0,MW,0)THENMW=WW
  431. 5500 IFNW>1THENR(NW+7,0)=82:IFP%(0,MW,0)=0ORP%(0,NW,0)<P%(0,MW,0)THENMW=NW
  432. 5510 IFSW>1THENR(SW+7,0)=82:IFP%(0,MW,0)=0ORP%(0,SW,0)<P%(0,MW,0)THENMW=SW
  433. 5520 R(MW+7,0)=100:GOSUB5560:IFEW>1ANDP%(0,EW,0)=P%(0,MW,0)THENMW=EW:GOSUB5560
  434. 5530 IFWW>1ANDP%(0,WW,0)=P%(0,MW,0)THENMW=WW:GOSUB5560:
  435. 5540 IFSW>1ANDP%(0,SW,0)=P%(0,MW,0)THENMW=SW:GOSUB5560:
  436. 5550 RETURN
  437. 5560 IFP%(0,MW,0)>10THENQD=0:RETURN
  438. 5570 UB=0:FORZ=1TOKK:IFOT=ZTHEN5640
  439. 5580 IFP%(OT,MW,1)=0THENUB=2.5:GOTO5640
  440. 5590 IFP%(OT,MW,1)<P%(Z,MW,1)THENUB=UB+.9
  441. 5600 IFP%(OT,MW,1)=P%(Z,MW,1)THENUB=UB+.4
  442. 5610 IFP%(Z,MW,1)>=1ANDLEFT$(P1$(Z),1)<>"[193]"THENUB=UB+.2
  443. 5620 IFP%(Z,MW,1)>=P%(OT,MW,1)ANDLEFT$(P1$(Z),1)<>"[193]"THENUB=UB+.6
  444. 5630 IFP%(Z,MW,1)>=P%(OT,MW,1)ANDLEFT$(P1$(Z),1)="[193]"THENUB=UB-BI
  445. 5640 NEXT:QD=(2.5-UB):IFEW>1ANDP%(OT,EW,1)>0THENQD=QD+.2
  446. 5650 IFWW>1ANDP%(OT,WW,1)>0THENQD=QD+.2
  447. 5660 IFSW>1ANDP%(OT,SW,1)>0THENQD=QD+.2
  448. 5670 IFNW>1ANDP%(OT,NW,1)>0THENQD=QD+.2
  449. 5680 IFMO(OT)<1200THENQD=QD+.5
  450. 5690 IFQD<0THENQD=0
  451. 5700 IFQD>R(Y,2)THENR(Y,2)=QD
  452. 5710 RETURN
  453. 5720 TF(Y)=TD:NEXT:GOSUB7100:GOSUB6810:FORPX=1TO6:R(PX,3)=100:IFTF(PX)=2ANDMR=0THENR(PX,3)=0
  454. 5740 IFTF(PX)=3ANDMO(OT)<1000THENR(PX,3)=101
  455. 5750 IFTF(PX)=3ANDMO(OT)>2000THENR(PX,3)=99
  456. 5760 IFTF(PX)=3ANDCO>70THENR(PX,3)=101
  457. 5770 IFTF(PX)=2ANDMR=1THENR(PX,3)=LT(9):IFO1=1ANDLT(9)>115THENO1=3
  458. 5780 IFTF(PX)=5THENR(PX,3)=0
  459. 5790 IFTF(PX)=4THENR(PX,3)=20*R(PX,2)+68
  460. 5800 NEXT:GOSUB7340:M=0:W=1:FORZ=1TO6:IFR(Z,3)>MTHENM=R(Z,3):W=Z
  461. 5810 NEXT:V$=CHR$(W+48):IFM=0THEN5230
  462. 5820 RETURN
  463. 5830 D(OT)=D(OT)+TI-IT:IT=TI:SYS51456,1,0:SYS51460,0,0:SA$="SIYLEH5KT YUXRX VEH5RIYYEH5SHUNZ.":SYS39424
  464. 5860 T=0:GOSUB190
  465. 5870 GETV$:M8=M8+1:IFV$="[133]"THENG8=1:GOTO5860
  466. 5880 IFM8>198THENM8=1
  467. 5890 IFV$="[134]"THENG8=2:GOTO5860
  468. 5900 IFM8=99THENSYSC4,V3,L15,A6,D11,S0,R0
  469. 5910 IFV$="[135]"THENG8=3:GOTO5860
  470. 5920 IFV$="^"THENT=T+1:POKEBC,T+1:GOTO5870
  471. 5930 IFV$="U"THENVY=99:POKEBC,T+1:GOTO5870
  472. 5940 IFV$="L"THENVY=3:POKEBC,T+1:GOTO5870
  473. 5950 IFV$="+"THENRUN
  474. 5960 IFV$="[140]"THENPOKE39438,76-(5*G8)
  475. 5970 IFV$="[140]"THEND(5)=D(5)+TI-IT:IT=TI:SYS51460,1,0:RETURN
  476. 5980 GOTO5870
  477. 5990 FORZ8=1TO6:X8=P%(OT,Z8,2):Y8=P%(OT,Z8,3):IFY8<50THENPOKE1065+X8*40+Y8,126:POKE55337+X8*40+Y8,15
  478. 6010 NEXT:RETURN
  479. 6020 SP=INT(RND(0)*7)+1:VB=0:FORX=2TO8:IFP%(OT,X,1)>0THENVB=VB+1
  480. 6030 IFP%(0,X,0)>1ANDSP<XTHENSP=X:IFOT=1ORP1=.42THENRETURN
  481. 6040 R(X+100,0)=500:NEXT:IFOT=1ORP1=.8THENSP=INT(RND(0)*7)+1:RETURN
  482. 6050 IFDNTHENGOSUB3780:PRINT:PRINT
  483. 6060 SP=9:FORX=2TO8
  484. 6070 IFOT=1ORP1=.8THEN6020
  485. 6080 S=R(X+7,0):R(X,1)=0:R(0,1)=0:UB=0:OP=P%(5,X,1):IFOP=0ORP%(0,X,0)<2THEN6680
  486. 6100 HJ=MO(OT):IFHJ<VA(X)THEN6680
  487. 6110 FORZ=2TO8:IFZ=XORP%(0,X,0)<2THEN6190
  488. 6120 SC=ABS(P%(5,X,2)-P%(5,Z,2))+ABS(P%(5,X,3)-P%(5,Z,3)):IFCO<KK*10THENSC=SC/3
  489. 6140 SC=SC+(1050-P%(5,X,2)*(10-P%(5,X,2))*P%(5,X,3)*(13-P%(5,X,3)))/350:IFCO<KK*10THENSC=SC*2
  490. 6160 IFCO>60THENSC=2
  491. 6170 IFP%(0,Z,0)<2THEN6190
  492. 6180 IFR(X+100,0)>SCTHENR(X+100,0)=SC
  493. 6190 NEXT:YR=0:RY=0:RR=0:FORY=1TOKK:RR=RR+MO(Y):ZQ=P%(OT,X,1):IFOT=YTHEN6340
  494. 6200 DO=P%(Y,X,1):IFDO>ZQ+1THENS=S-5*(DO-ZQ)
  495. 6210 IFZQ+3>DOANDDO>ZQTHENS=S+8
  496. 6220 IFDO=0THENRY=RY+1
  497. 6230 IFDO+3>=ZQANDDO<ZQTHENS=S+6
  498. 6240 IFUB<DOTHENUB=DO:FL%=INT(Y)
  499. 6242 IFMO(Y)<499THENS=S+(8*(ZQ=DO)+8*(ZQ+1=DO)-8*(DO+1>ZQ)*(ZQ+4>DO))*(OP>8)
  500. 6250 IFZQ=0THEN6310
  501. 6260 IFABS(DO-ZQ)<4ANDLEFT$(P1$(Y),1)<>"[193]"THENS=S+14
  502. 6270 IFMO(Y)<499THENS=S-7*(ZQ=DO)-6*(ZQ+1=DO)+5*(DO+1>ZQ)*(ZQ+5>DO)
  503. 6280 IFDO=>ZQANDLEFT$(P1$(Y),1)<>"[193]"THENS=S+3*(ZQ-DO)+14-12*((DO-ZQ)*VA(X)<HJ)
  504. 6290 IFDO=ZQTHENS=S+13
  505. 6295 IFDO=ZQ+1THENS=S+7
  506. 6300 GOTO6340
  507. 6310 IFDO=0THENS=S+OP-KK^2:YR=YR+1:S=S+3*(7-VB)
  508. 6330 IFDO<4ANDMO(Y)<500THENS=S-10*(HJ>DO*VA(X))
  509. 6340 NEXT:IFZQ=0THENS=S+((HJ*KK+999)/(RR+999))^2-6
  510. 6350 S=S+OP/3-25:R(X,1)=1/P%(0,X,0)+(((CO-7*KK)*HJ)^2)/105000^2:IFR(X,1)>1ORO1=1THENR(X,1)=1
  511. 6370 IFZQ+UB+OP>23ANDZQ>3THENS=S-(ZQ*25)/(CO-5*KK)
  512. 6380 IFRY=KK-2ANDLEFT$(P1$(FL%),1)<>"[193]"THENS=S+16
  513. 6390 IFRY=KK-2ORRY=KK-1THENS=S+(4-ZQ)*2.5
  514. 6400 IFZQ>UBTHENS=S-(ZQ-UB)*2.5*(7-VB)+5+15*(MO(FL%)<400)
  515. 6410 IFZQ+OP<UBTHENS=S-50+40*(ZQ<8)*((ZQ+OP)>=8)
  516. 6420 IFR(X+100,0)<500ANDCO<60THENS=S+66-R(X+100,0)*8
  517. 6430 IF(25-OP)>4*ZQTHENS=S-ZQ*3
  518. 6440 IFKK<>2THEN6470
  519. 6450 IFP%(OT,X,1)=0THENS=S+50
  520. 6460 IFZQ-1<>3*(INT(ZQ-1)/3)THENS=S+25
  521. 6470 IFZQ>5ANDZQ<9THENS=S+7
  522. 6480 IFCO<(KK+OT)*4+35ANDHJ<6005THENS=S+10-(VA(X)/30)
  523. 6490 IFLEFT$(P1$(FL%),1)<>"[193]"THENS=S+11
  524. 6500 IFCO<50ORHJ<6100THENS=S+20-(VA(X)/35)
  525. 6510 IFZQ+3<UBTHENS=S-7
  526. 6520 IFZQ>UB+OPTHENS=S-60
  527. 6530 IFOP<4ANDOP>=ABS(ZQ-UB)THENS=S+63
  528. 6540 IFZQ=0THENS=S+6*(HJ<4*VA(X))-6*(HJ>8*VA(X))+5
  529. 6550 IFZQ=0THENS=S-2*(25-OP)+(170/VA(X))*(KK^2)+CO/KK-VB*4
  530. 6560 IFZQ>UB+3THENS=S-13
  531. 6570 S=S+(ZQ-2)*(ZQ+UB+OP=25)+(CO-58)*VA(X)/3000:IFZQ>UBANDUB+4>ZQTHENS=S+8
  532. 6580 IFZQ<=UBANDZQ+3>UBTHENS=S+14-15*(MO(FL%)<500)
  533. 6590 IFZQ=UBANDHJ<900THENS=S+(1300-VA(X))/120
  534. 6600 IFZQ+1=UBANDHJ<900THENS=S+(1300-VA(X))/120
  535. 6610 IFYR=KK-2ANDHJ<1300THENS=S+9
  536. 6620 IFYR=KK-2ANDCO<57THENS=S+(CO-KK*8-VB)*1.5:GOTO6640
  537. 6630 IFYR=KK-2THENS=S+56-KK*8-VB+6
  538. 6640 IFZQ=UBTHENS=S+12
  539. 6650 S=S+3*(CO-KK*11):IFM1>1THENS=S+5
  540. 6660 IFZQ+1=UBTHENS=S+12
  541. 6670 IFZQ>=13THENS=S*.1
  542. 6680 SP=1:R(X,0)=S:IFVY>3THEN6730
  543. 6690 IFDNANDM1=1THENPRINTTAB(29)LEFT$(NA$(X),7);""INT(S*R(X,1))
  544. 6700 IFM1>1ANDDNTHENPRINT"":FORY=1TOM1:PRINT"":NEXT
  545. 6710 IFDNANDM1>1THENPRINTTAB(18)LEFT$(NA$(X),7);""INT(S*R(X,1))
  546. 6720 IFS<0THENS=0
  547. 6730 SYSC4,L7,WS,V2,F(300+S*19),D8,S0,R0:IFM1>1THEN6750
  548. 6740 NEXT
  549. 6750 R(0,1)=0:FORX=2TO8:IFHJ<VA(X)THENR(X,0)=0
  550. 6760 IFR(X,0)*R(X,1)<=0THEN6780
  551. 6770 IFR(X,0)*R(X,1)>R(0,1)THENR(0,1)=R(X,0)*R(X,1):SP=X
  552. 6780 NEXT:IFM1=1THENPRINT"
  553. 6790 [139]SP[177]1[175]DN[167][153][163]16)[200](NA$(SP),9);"POKE_":[141]4840
  554. 6800 [142]
  555. 6810 [129]Z[178]2[164]8:LT(Z)[178]115:[139]P%(0,Z,0)[177]0[167]LT(Z)[178]0
  556. 6820 [139]Z[173]2[179][177][181](Z[173]2)[175]OT[178]4[167]LT(Z)[178]LT(Z)[170]1
  557. 6830 [139]Z[173]2[178][181](Z[173]2)[175]OT[178]3[167]LT(Z)[178]LT(Z)[170]1
  558. 6840 [129]Y[178]1[164]KK:[139]P%(Y,Z,1)[177]0[175]Y[178]OT[167]LT(Z)[178]LT(Z)[170]28
  559. 6850 [139]P%(Y,Z,1)[177]0[175]Y[179][177]OT[167]LT(Z)[178]LT(Z)[171]13
  560. 6860 [130]:[130]:TH[178]7:LT(9)[178]0:[129]Z[178]8[164]2[169][171]1:[139]LT(Z)[177]LT(9)[167]TH[178]Z[171]1:LT(9)[178]LT(Z)
  561. 6870 [130]:Y[178][181]([187](0)[172]10)[170]2:[139]Y[177]8[167][142]
  562. 6880 [129]Z[178]2[164]Y:[139]LT(Z)[178]LT(9)[167]TH[178]Z[171]1
  563. 6890 [130]:[142]
  564. 6900 V[178][181]([187](0)[172]2)[170]1:[139]OT[178]1[176]P1[178].8[167][142]
  565. 6910 R(1,1)[178]0:R(1,2)[178]0:[129]Y[178]1[164]2:[129]X[178]1[164]KK:[139]OT[179][177]X[175]P%(X,AG(Y),1)[177]P%(OT,AG(Y),1)[167]R(1,Y)[178]R(1,Y)[170]1
  566. 6930 [139]OT[179][177]X[175]P%(X,AG(Y),1)[178]P%(OT,AG(Y),1)[167]R(1,Y)[178]R(1,Y)[170].5
  567. 6940 [130]:[130]:V[178]1:[139]R(1,1)[179]R(1,2)[167]V[178]2
  568. 6950 [142]
  569. 6960 VS[178]53248:[151]2040,15:[151]2041,14:[151]2042,13:[151]VS[170]39,8:[151]VS[170]40,9:[151]VS[170]41,0:[151]VS[170]29,3:[151]VS[170]23,3:[142]
  570. 6980 V[178]P%(MT,AG(ZL),1):XV[178][181](V[173]2):[139]P%(5,AG(1),1)[179]XV[167]XV[178]P%(5,AG(1),1)
  571. 6990 [139]XV[170]P%(MT,AG(1),1)[177]13[175]VA(AG(ZL))[172]3.3[179]VA(AG(1))[167]XV[178]13[171]P%(MT,AG(1),1)
  572. 7000 [139]V[178]0[167]4290
  573. 7010 [139]O1[178]2[176]P%(5,AG(1),1)[178]0[167]7060
  574. 7020 [139]VA(AG(ZL))[172]2.9[179]VA(AG(1))[167]7050
  575. 7030 [139]VA(AG(ZL))[172]1.8[177]VA(AG(1))[175]P%(MT,AG(1),1)[178]0[167]7060
  576. 7040 [139]MO(MT)[179]2000[167]7060
  577. 7050 [139]HM[178]1[167]4230
  578. 7060 [139]O1[179][177]0[176]CO[177]85[171]3[172]MT[167]4090
  579. 7070 [139](3[170]AG(ZL))[172]48[177]VA(AG(ZL))[167]V[178]0:HM[178]4:[137]4290
  580. 7080 [139](3[170]AG(ZL))[172]71[177]VA(AG(ZL))[175]MO(MT)[177]1000[167]V[178]V[171]1:HM[178]4:[139]V[177]2[167]V[178]V[171]3
  581. 7090 [137]4090
  582. 7100 MR[178]0:[129]Y[178]2[164]8:[139]P%(0,Y,0)[178]0[167]MR[178]1
  583. 7110 [130]:[142]
  584. 7120 VT[178]OT:[137]7140
  585. 7130 VT[178]MT:V$[178]"X"
  586. 7140 [139]VT[178]0[167]VT[178]1
  587. 7150 [151]55848[170]VT[172]8,VT[171]1:[139]VT[177]1[175]VT[179]4[175]KE[178]1[167][151]55373,1:[137]7240
  588. 7160 [161]V$:[139]V$[179][177]""[167]C%[178][197](V$):[137]7280
  589. 7170 C[178]C[170]1:[139]C[177]9[167]C[178]0:[158]C4,V3,L2,F600,WN,D7
  590. 7180 [151]VT[172]8[170]1576,C[170]200:[137]7160
  591. 7190 M[178][194](56323[171]VT)[175]19:[139](M[175]3)[178]2[167]C[178]C[170]3:[139]C[177]HI[167]C[178]10
  592. 7200 [139](M[175]3)[178]1[167]C[178]C[171]3:[139]C[179]10[167]C[178]HI
  593. 7210 [139](M[175]16)[178]0[167]7280
  594. 7220 [139][181](C[173]10)[178]C%[167]7190
  595. 7230 [139]HI[178]69[176]HI[178]79[167][139]C%[179]9[167][151]55337[170]P%(VT,C%,2)[172]40[170]P%(VT,C%,3),15
  596. 7240 C%[178][182](C[173]10):[139]C%[177]9[167]C%[178]9
  597. 7250 [139]HI[178]89[167][153]"";:[153][163]19)NA$(C%[170]1);"       
  598. 7260 IFHI=69ORHI=79THENIFC%<9THENPOKE55337+P%(VT,C%,2)*40+P%(VT,C%,3),1
  599. 7270 POKE1101,C%+48:V$=MID$(STR$(C%),2):POKEVT*8+1576,C%+48:GOTO7190
  600. 7280 SYSC4,V1,L14,F5163,WN,A0,D9,S0,R0:SYSC4,V2,F183,WS,A0,D11,S0,R0:POKEVT*8+1576,32:IFV$="[140]"ANDB7<>5THENGOSUB5830
  601. 7300 V=C%:RETURN
  602. 7310 IFCO<=KK*7THENTI$="000000":PRINT"";:RETURN
  603. 7320 PRINT"    ";MID$(TI$,2,1);"[151]:";MID$(TI$,3,2);"[151] [173][174] [149]";:PRINTSPC(17)CO-7*KK;" [151][197][196][146][155]";:RETURN
  604. 7340 FORQ=1TO6:FORM=1TO6:IFQ=MTHEN7390
  605. 7350 IFP%(OT,Q,2)<>P%(OT,M,2)THEN7370
  606. 7360 IFP%(OT,Q,3)=P%(OT,M,3)+1THENR(Q,3)=R(Q,3)+2:R(M,3)=R(M,3)+2
  607. 7370 IFP%(OT,Q,3)<>P%(OT,M,3)THEN7390
  608. 7380 IFP%(OT,Q,2)=P%(OT,M,2)+1THENR(Q,3)=R(Q,3)+2:R(M,3)=R(M,3)+2
  609. 7390 NEXT:NEXT:RETURN
  610.